(coding-system-eol-type-mnemonic): Move to mule.el.

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 99847c3986e6f4b04970d188656b90ae7f4d9216..9ed3d8a388073b590fcf9a699f7e74a4e46c0d8b 100644 (file)
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -195,7 +195,7 @@ defaults to \"...\"."
 ;;             (("\e$B$3\e(Bh\e$B$s\e(Be\e$B$K\e(Bl\e$B$A\e(Bl\e$B$O\e(Bo" 13 4 ?x "\e$BF|K\8l\e(B") . "xex\e$BF|K\8l\e(B")
 ;;             ))
 ;;   (let (ret)
-;;     (condition-case e 
+;;     (condition-case e
 ;;     (setq ret (apply #'truncate-string-to-width (car test)))
 ;;       (error (setq ret e)))
 ;;     (unless (equal ret (cdr test))
@@ -293,19 +293,6 @@ Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil
 \f
 ;; Coding system related functions.
 
-;;;###autoload
-(defun coding-system-eol-type-mnemonic (coding-system)
-  "Return the string indicating end-of-line format of CODING-SYSTEM."
-  (let* ((eol-type (coding-system-eol-type coding-system))
-        (val (cond ((vectorp eol-type) eol-mnemonic-undecided)
-                   ((eq eol-type 0) eol-mnemonic-unix)
-                   ((eq eol-type 1) eol-mnemonic-dos)
-                   ((eq eol-type 2) eol-mnemonic-mac)
-                   (t "-"))))
-    (if (stringp val)
-       val
-      (char-to-string val))))
-
 ;;;###autoload
 (defun coding-system-post-read-conversion (coding-system)
   "Return the value of CODING-SYSTEM's `post-read-conversion' property."